V.VItittg and Debu^in^ Programs Kcv.-;> 6 

by S. Russell 

Q*:en fnAbrcutines 

A subroutine is a fixed set of instructions that is used 
niar.y ti^es . The kind most of tan used explicitly are closed sub- 
routines such as MAPLIS'P v;hich are set up so that they may be 
■used by any part of a program. Open subroutines are ones which 
are inserted v:herevor they are necessary in a program,' examples 

i. oi:v. t/ v Cvl v.; vUl C~liU ^ci % ; 
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LXD JTCC,4 

CIA 0,4 

nrtv o it. ■ ■ 

vjill compute car(.j). Si-: : thl .' - of :• .: -cr-usticns is so short 
it would waste a sicnifl-.. ... ': c -..*t of tf :o r.:ake It a closed 
subroutine . 

Other simple open sub.^ut Incs present^ ... the LISP language 

cor- (J): LXD JLCC,4 
■DX 0,4 
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c;;i-(-^ -,XD J LOO A 
:j.I-A 0,4 
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where D2CI-5 has 1*0 In its decrement only 



aid (J;: CIA JLOC 
PAX 0,4 



p;a> 0,4 
■» ilote that car(J)=adcl(cwr(j)) 
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ry joinins cnr and add is simplified to cot car. 

Similarly, v;hen o strins of opsn subroutines is Joined to- 
sether redundant operations cun usually be eliminated. 

Closed subroutines in LIS? are si van a standard eallir.s 
eesucnee. The arsu:;:eats of the subroutines are pieced in order in 
the AC, the yp, and locations called AP.G3 and ARG4. 

After tho arsu:nents have boon provided, the subroutine is 
entered by a TSX SlIDI^S- where SUBR is the location of the first 
instruction of the subroutine. The subroutine- ends with its 
value in the AC and the instruction TRA l,s- which returns control 
to the instruction after the TSX that set in'!-, note that any 
otier prosper.: can be executed between this TSX and the TRA 1,4 
so Ions es the contents of IE'':- are restored to the- value set by 
the O/Sh before the. TEA is executed, a subroutine restores all 
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rs it xisss to- the value they had en entering the 



subroutine. • 

b'hen a 15-slt quantity is an argument cr value, it is 
always stored in the decrement of a word,- a 1-bit quantity is 
stored m the lev; order bit of the decrement. 

_ C"£Dl-,7. OP CChPUIATION: 

In seneral. functions are calculated from the inside cut. 
For omc re. ie, ear(cdr(j)) cdr(j} is calculated first.; then car 
oi enis intcrr.iediete result is calculated to get the final result. 
In. ^..uiti-arsuaont functions the first argument is calculated 
first an:l go on.- Por e::s;-;pie, in compiling J«=cons(csr(j),cdr( J}) 
t:.:-. erc^r of calculation would be: 

cer(j); cdr(j); cons(car( J),cdr< J)) ; 
Temporary storage must, of course, be provided to save car(j) 
while cdr(j) is being calculated. A 704 program to calculate 
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CLA C Jl- 

SXD Ti,4 

LXD JL0C,4 

CIA 0,4 

----- W - 

cvr\ r;:0 2" 

4 --'- J/ --.? •" 

CLA Tl 



C'.JR(J) 

car (J) 



CBR(j) 

C 

CDR(J) 

CAR (J) 

C0:IS(CAR(J),CDR(J}) 
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iu l.w...^ cases ic is pcss-ioie to rear-range trie order of 
computation to give a siore efficient prc-rran, but in other 
cases this s:ay load to unpleasant side effects, especially if 
•cho rearrangement effects input-output routines. The above 
can bo made factor- without ill effects by calculating cdr(j) first: 

T ~ » ) * I '■ i ' I 



CLA 0,4 

CLA 0,4 
FAX 0,4 
rXD 0,4 
I,DQ T2 

JLua U ;> U ^ V: J ^ ^ v 



CWR(J) 
CDR{J) 

Cv.'Ii(j) 
CAR (J) 
CAR(j) 

CDR(J) 
C0:IS(CAR(J),CDR(J) 



•flic r-soulMns 10,2 saving in tine is almost worth the effort. 
(•lac additional confusion docs not justify the change at all). 
ii:l!i-2-* ^-^AVE A£T> RSC IiRSIVE FUNCTIO NS 

Consider the "slow :: niaplist in Kono 4: naplist(L,f }«(L=0— ?0, 
i—vcens (f(L), caplist (cdr(L),f ))) 
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f{I-) 
cer'L) 



K~plict(cdr(L),f) 

c one ( cdr ( L ) , uapl in t ( f ( L ) , f ) ) 

reti-rh 

Temporary storage is needed to hold the result of calculat- 
ing i(L) while cdr-(L) and •nsplist arc being calculated. If v:e 
wade no provision for saving the value of this temporary storage 
location v.'hiio napllst v?ss being calculated the recursion would 
leave a different value in this temporary storage location. 
Similarly, inde:: register '!■ must be saved. To avoid this, we 
use SAVE and UrISAVE in every routine th';t could possibly end up 
using itself. This includes net only recursive routines, but also 
routines that can have an arbitrary function as an argument, since 
the arbitrary function v.rigi.t be ,or include , the routine itself. 

The use of SAVE and bAlSAVE is explained in I-Isao k- pl-2. Only 
. temporary quantities that are used both before and after the 
self reference (s) need be saved. The value of l?A is quantity 
of this type . 

A good example of the use of SAVE and UKSAVE is the program 
for ccpy(L) on p, 10 of .-ctao k. 

Since the function will not use itself if either of the 
first tv;o conditions are satisfied, SAVE and UKSAVE need not be 
r:cd in either of these cases, note that TPA is stored in CS1 
icr.g before the use of cave. CT1 used for temporary storage of 
L, but this is only needed before the reference to copy so it is 
not caved. Since SAVE and UKSAVE each taice 1^+3U instructions to 
save N registers, they should not be ussd needlesslv. 



si^-p.lo problem. These problems uust include all the special 

03303 that occur in possible input to the program, all the 

r.«*^, ,--%.'% •• p ~) •-> -j r- /-> c? -J- ""j *~i J .~ v^,-?. rM'* r^v.* "•;"> '**> rn^^ r» / "V^r: ~1 ri^i"* ^ ^- !-\ ^*> o. <■* O c'/r^<-^ 

are not identical ) end so~:e typical canes. The tost prosrarn 
itself ;::ust present the routine v;ith those test problems through 
the proper calling sequence. It nay be helpful to write the 
test pro^raiu before the main program, so that the test program 
Is not biased by knowledge of how the main program works. 

The test program rai3t be simple and yet Give as rcuch 
information as possible. Since few programs work the first 
titto .post~r*:ortc;n requests should be sprinkled through the test 
proc^av:: to allow a bug to be pinned down quiclcly. Print early 
and often. Eono^ber^ you can always ignore what Is printed If 
tho program works. Don't have sensless lar^e dumps, because 
they tie up tho off-line printer 3 it only prints 2 pages a minute. 
The boot ccrprciise seems to start with trivial test problems 
and print out the results and several key registers. (For example, 
the public- r:v.-h down list, the free storage list and places 
where IRv has b::en stored). After the routine works en trivial 
problems r couple:* ones and obscure special cases can be tried. 

It Is e::trer.:ely important that in the final tests the routine 

tested is in one block and complete, so that it can be used by 
putting that block into another program without any modifications. 

To make debusing .siuipie we have prepared a basic package 
for the KIT automatic operator system containing error post-mortems, 
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-\\:o:yco\r:3 , setup or fro-s otorac^ and public pu::h dovm 
lists* and v.ioat or the debused subroutines. To ur,e this, it 
is only noccesary to write the toot pro^ran that start:: at the 
first location and carts with TRA 2}j£M3. There are zc~r.z symbols 
tl:at cannot to defined in the test program and tho main pr cr;rar/i 
because they are used in this package, but these are mostly 
function uasics. Uith the package deck tho pro^rauiivier need only 
provide tho tact program to bo is inserted in tho deck, put a 
RUN card at tho beginning of tho deck, and a TER card at the end. 
The ILUN and TIE cards ehouid have the came title, uhicli should 
contain tho problem number,, the pro^ranmer : 5 number, and a 
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and the HIT automatic operator ^ysteni described in CC-IOS. Copies 
of the ee CC--;::e:nas can bo jetton from the Computation Center office. 

email. Doubly defined and undefined sydhols are one of the most 
co^en errors encountered at this point. 

Due to an idiosyncrasy of the off-line card reader jpro^rarn 
cares cannot have a 9~punoh in colun 73. This excludes tho letters 
I, n. and Z. 

nhen your program has been run, you will ^ot tv;o listings : 
an on-line one* and an off-line one. Except for times and on-line 
output, the off-line listing has everything on it the cn-line does. 

In the eiitrette' left of a sap listing, letters such as 
U,M,A,D, occasionally appear. These are explained in CC-S2 and 

they signal a trouble of some kind. Hot all of these troubles 
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oauzo a probata to be tasked ao tad, so they abould bo loolced 



«^>fff- ;: rcr oven if ; the prosrsta «# good . ' / BSBP^iS^^^S®^^ 
iittfe*>. ;; .: : Ir thsre is a n^aber lother than ■■fr'^tt:-'- tiieslfe^iij- .coil 
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^:4 . °, r th0 "S^KS ASSE--SLER STA2ISYICS" there was -an error In reading 

'■? W:^\P' v a. taps, and the program my be >■ rerun*- ^^h^^^x ■.y^^^^-^i&S. 
So not be confuced by the fact that printing done by 
your program occurs in operator phase 2, while the post-nortea 
output occurs in phase 3* ! 
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